home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 January / Ahoy_Magazine_88-01_1988_Double_L.d64 / Fade Away 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  350b  |  11 lines
  1. 1 rem ==================================
  2. 2 rem    commodares problem #45-2 :
  3. 3 rem      fade away
  4. 4 rem    solution by
  5. 5 rem      david alan wright
  6. 6 rem ==================================
  7. 10 poke53281,0:poke53280,0:c$(1)="[155][152][151][144]":c$(2)="[158][150][129][149][144]":c$(3)="[154][144]"
  8. 20 c$(4)="[153][159][144]":fori=1to4:forj=1tolen(c$(i)):printmid$(c$(i),j,1)"[145]fade"
  9. 30 for k=1to500 : nextk,j,i
  10. 40 print""
  11.